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- THESE NOTES ARE PROPRIETARY AND ARE NOT 0 ci eee 
TO BE COPIED WITHOUT THE WRITTEN APPROVAL OF 9 oh 
THE AUTHOR. THEY ARE FURTHERMORE TO BE USED © Foe 8 
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oe THEIR: IMMEDIATE: co WORKERS. re ee ee 
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_ FOCAL SEMINAR NOTES - PALS-¥7 875/72 PAGE 2 
"DEFINITIONS FROM FOCAL: 

THE FOLLOWING METHOD OF DEFINITION WILL WORK ~:~ 
FOR THE FOLLOWING ASSEMBLERS: MACRO-@ PAL-D, PAL-D ~ 
¢8K VERSION) AND eae, ee RT ee ee ee 
OF THE FOLLOWING MUST BE DONE. 
1. IF THE ASSEMBLER ALREADY. HAS. FLOATING-POINT: 


os POTHT PACKAGE, THEY MAY BE ear pad ~DEFINED 
FOR THE PROPER OP- CODES. 


ht 


FOLLOWED BY THE DEFINITION OF ALL MENMORY-REF. 


POINT INSTRUCTIOHS (BELOW), AND THE "FIXMRI". 


WAN NAR RAN NNN i a 


 -PDP-& INSTRUCTIONS MUST BE. DEFINED!!! UN~ 
FORTUNATELY, THIS IS THE “ONLY WAY, ae 


er, 
53 
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FIXMRI FGET= 6e56 - PSEUDO F. P INSTRUCTIONS rin 7 
FIXMRI FADD= 1086. ae 
FIXMRI FSUB= 26 
FIXMRI FDOIV= 36 
FIXMRI FMUL= 46 
FIXMRI FPOW= 5a 
FIXMRI FPUT= 66 
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7680 FNOR= 740 
9800 FEXT= gage 
4407 FINT= JMS I 7. 


IFNDEF Pis <Piz® 5> | /FOR DEBUG UNDER 0$/8 ODT 
‘RT= ii oa Pe a ee ee ee ee te 
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aRT2Z= lz 
PDL R= 13 
FLTSR= 14 
FLTAak2= 15 
ASOUT= r 
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ga28 HOTS ou ee eee, at oe 
Hoe2 PC= . a2 a 2 oe nse oe ed 
Wo2S THISLN= 23 - 
9025 LASTLN= 25 A 
G026 PTi= 34 “ 
azz Tis 32 Ae 
O23 ss 23 
@G35 BOTTOM= 35 ee SO ee ee ee es 
ga4@ EXi=  -4a — /F.P.. OPERAND? @ oo o8 5 eee AS SE cee 2 
BES ACTH=  Esl+i. ! oy? UE ag eR Oe oe ES de aS ke eee 
Bad 


ACIL= Exit+e 
HHdS  OVERIL 

- @644¢ FLAC= 44° in Wet 
4044 EXP= FLAC 7F.P. AG We 
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FOR THE VERSIONS OF THE PAL-III. ASSEMBLER: ONE 5604 
IHSTRUCTIOHS DEFINED FOR THE STANDARD MER Te 
CTHERWISE, THE "EXPUNGE" PSEUDO-OP MUST BE USED |: 


INSTRUCTIONS CAND, TAD, ETC...3. THE FLOATING- 9 ite 


PSEUDO-OF. FOLLOWING THIS, ALL THE REST OF THE”. 
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HOR T= 
LORD= 
OVER S= 
MIHSEI 
FISu= 
INTEGE 
SOR TCH 
CHTR= 


OUTDEY 
THDEV= 


HAGSh= 
CHARS 


LIHEHO 


C2Le6e= 
MHe24o= 


C2he= 


TOUELE 


OCRFRS= 


EFUM AT 


ERRFT= 
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STARTS 


T= 


FROC= 
 PCI= 
IWPFUT= 


MCOM= 
GList= 
TLIST= 
Goals 

EVAL = 

EFUM= 

EF UM a= 
ERRORS 
MUL TI& 
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DIGitT=. 


MULT2Z= 
DUBLATD 


ALIGH= | 
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PALS-V¥? 875772 PAGE 2-1. 


“FORMAT DESCRIPTION WORD 


/POINTER TO OUTPUT SUBROUTINE. © °°” 
“POINTER TG INPUT SUBROUTINE) =.” 


7C.R. CODE 


“ERROR ROUTINE ADDRESS 


SPACE ¢# ¢TLISTL3. 


a ae + ea + C.F. . 
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INGRM= 733 


LIBRARY="SH2 
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“HEM INSTRUCTIONS: 


S40 PFUSHJ= JMS 


ff, 


146 ‘RECURSIVE SUBROUTINE CALL - 


i413 
S54 


4542. 


4543 
6d 


4a 
—ASae. 


4547 
4550 
4551 


hy hs 0h: oh oo oA et 


BRR RERR EE 
CHO cn cn cn cna 


Mm & OF fe mi 


POP AS 


For = 
FUSHA= 


PUSHES 


FOF PF = 
BETC= 


FPACKE= 
SORT J= 


SHR Tis 


PRINTC= 
READC] 
PRNTLN= 


GETLH= 


FIHDLH= 


RTLe= 
SPHOR= 
TESTH= 


TSTLPR= 
TSTGRP= 
TESTC= 

ERRORZ= 


TAL 
JPME 
JS 
PES 
JETS 


AMS 


PES 
Js 
PES 
TS 
JS 
PS 
JS 
JS 


PES 
WPS 


PS 


JMS 
JIHS 
JMS 


HHS 
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“PRINT aC OR gia 
HATA INTO CHAR AND PRINT Te! 


“TGHORE 


6 TERMS 


“RESTORE ac 
“SUBROUTIHE 
“SAVE AC : 
“SAVE GROUP OF DATA 

“RESTORE GROUP OF DATA. 
“UHFPACKE & CHARACTER. 

“PACK A CHARACTER © 

“SORT AND BRAHCH ON At OR Hae 
“SORT CHAR 


RETURE 


CHAR 
“REAL 
“PRIHT CCLINEHOS 
“UNPACK ANT FORM A LINENUMBER 
“SEARCH FOR A GIVEN LINE ~ 
“ROTATE LEFT SIk _ a a 
SPACES AHDT LEADING: ZEROS. ~ 
“FERIODI; OTHER: HUMBER ? oe 
“SEIP IF L-PAR: ¢,.°C OR ¢ 
“SKIP IF tcactd = CCLINEND> 3 
HUMBER: FUHCTION: LETTER 


“CALL ERROR SUBROLUTIWE 
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“FREE LOCATIONS IM FOCAL ¢€1969): 


yL00¢s> COMMENTS 


ge USED ONLY BY POP-S INTERRUPT HANDLER. 
fo 4 USED BY DEBUGGERS. IF THIS LOCATION IS Sar 
/ | USED, THEN ODT CANNOT BE USED IN DEBUGGING. 
/ 11.12,14.15. AUTG-INDEX REGISTERS ‘SRT’, ‘HRT’, . 
/ ’FLTXE’ & “FLTMR2*. THESE ARE USED ON 
, A TEMPORARY BASIS BY FOCAL ROUTINES, 
/ AWD CAN BE USED (ON & TEMPORARY BASIS) 
? IF HO CONFLICTS ARISE WITH THESE ROUTINES 
/ | [USE THE CREF LISTING TO DETERMINE THIS]. 
/ 32,33, 71 ‘Ti’, ‘TS! & 'T!'. TEMPORARY WORKING 
? LOCATIONS FOR FOCAL ROUTINES. SEE THE 
oe COMMENTS ABOVE ON THE AUTO-INDEX REGS. 
4 37 ‘HINBUF’, SEE WOTE 1. 
en oe 'P4eGe’. USED ONLY AT TWO LOCATIONS. 
/ SEE PAGE 4 OF THIS LISTING. oo. 
/ 126 ‘PTCH’, SEE HOTE 1. MUST OVERLAY 3001 
/ AHD 26G2 WITH "NOP"S TO USE. SEE FOCAL. 
p3 LISTING. , | | 
/ 167 - 174 USED BY SE PATCH, FREE IN 4k VERSION. 
L mows 


6 : “HCOM’. SEE HET LIWE.... | } 
42 —- 11357  "FORIS" FUNCTION. SEE HOTE 2.. IF THIS 


™ 
a a ee 


6 8 
5 7 USED BY "MODY" ¢Sk> PATCH. OTHERWISE FREE. | 
4 


*, 
cele aed 


rs FUME TION IS OVERLAID, ’“’HCOM’ ABOVE CAN: 

’ | ALSO BE USE. . | 

“ [ada - 13ssa MReanc' FUHCTION. SEE NOTE 2. oe a ee 

f 1354 —- 1Laee *QOUTL? SUBROQUTIHE, DIRECTLY FOLLOWING ~°-. :) 

a "Pant" CODING. SEE HOTE 3. | oo 
cf TES - LESse "RAHO*, SEE HEXT LIWE... | 

f 1555 —~ i562 "PRAM" FUNCTION, SEE HWHOTE =. IF THIS - 

f FUNCTION IS QYERLAID. “RAND? ABOVE CAN” 

a ALSO BE USED. | | 

f @dtd -— edod "Tse" SUBROUTIWE. SEE HOTE 3. o 

“ &Silé6Ff - S17? FREE OWLY IF ALL FUNCTIONS ARE KEPT! ! 

ra OTHERWISE FART OF THE TEXT-YARIABLE- 

a FD. L. AREA. BE CAREFUL WHEH YOU USE 

/ THIS AREAL | ; ee: 
5352 = SB3PP° FREE ONLY IF "FSIN" & “"FOOS" ARE KEPT. 

a OF IF ‘BotToM? IS SET UP CORRECTLY, 

e OTHERWISE PART OF THE STORAGE AREA, 

lb FREE a. 


USED BY Sk PATCH, FREE IN 4k VERSION, | 
H.&. READER ROUTIWE., SEE NOTE 1. © 
POET OF THE MULTIPLY ROUTINE. “DMULT’. 
ae HOT USED IH THE 3-WORD FLOATIHG-POINT 
wf “—e PACKAGE. THIS AREA SHOULT BE USED OWLY. 
e , IF IT IS KNOWN THAT THE 4-WIORD FACKAGE ~ 
a _ WILL NEVER BE USET. 
“ 7322 - 7334 PORT OF THE DIVIDE ROUTIHE, *“DUBDIV’, 
. ff HOT USED IN THE 3-WORD FLOATING-POIHT 
ia PACKAGE. HOTE THE RESTRICTION ABOVE. 
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EJECT 


NOTE 1: IF NO HIGH-SPEED READER IS USED, THEN LOcA- 
TIGNS 37. 126, 346, 3041 AND 6311 - 6377 CAN BE 
USED FOR OTHER CODING. IF THIS IS DONE. : 
LOCATION 1241 ¢"#" ROUTINE IN CONGO’) MUST BE 
CHANGED TO 177. THIS WILL CAUSE AN "#" AS A 


“~~ ON 


YSN 


COMMAND DOES. 


NOTE. 2: THESE Th FUNCTIONS ¢AWND PERHAPS "FSaT", 
LOCATIOHS r4a6 - Frd46r3 CAH BE OVERLAID WITH 
QTHER CODING. IM THIS CASE, THE ADDRESSES OF 
THESE ROUTINES IH “FHTABF’ STARTING AT LOC © 
ar49 AUST BE CHAHGED TO "ERRORS" SO THAT THE’ 
CAWHOT BE CALLED. 


YANN AAN 


“., 


HOTE 3: ’I33’ AHD “OUTL’ WERE SET UP TO ALLOW EASY 

TEBUGGING OF FOCAL WITH THE INTERRUPT OFF. . | 
AWD WITH THE HELP OF A DEBUGGER. THIS CAN BE © . 
DOHE AS SHOWN IN THE "DEBUG" PATCHES. IF THE  — | 

SPACE IS NEEDED. “HISS’ AHD “XOUFL’ COULD BE 

OVERLAID WITH ROUTINES EQUIVALENT TO “I33’° AND 
*OUTL?. AWD THE REST OF THE DEBUGGING EAVCHES 
IMPLEMENTED TO RUN WITH IQF. | 


Ae ye Ne OR 
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COMMAND TO DO THE EXACT SAME THING THAT THE "@". 
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“PATCHES TO USE “ORR 1" INSTRUCTIONS TO GENERATE © 

“ CONSTANTS IH THE AC RATHER THAN USE "TAD"S. THE 
"TAD"S WERE WHEEDED FOR THE POP-5S COMPUTER. IF | 
YOUR PATCHES HILL HOT BE RUNNING ON A PDORP-5S. THESE 
PATCHES WILL SIGHTLY IHCREASE EXECUTION SPEED AND 
FREE LOCATIOWH i124 FOR OTHER USES. : 


~S SS NSS 


(p245 #245 /OVERLAY "TAD P4aoa" - ONLY 2 REFS 
gp245 7330 STL CLA RAR v= 4006 | 

1G17 #1017 /OVERLAY "TAD M2" | 
g1g17 Fada CLL STG RAL 9 v= <2 

1eZ1- #1631 7 OVERLAY "TAD Me" 
B1631 7344 CLL STA RAL 

2852 #2052 “OVERLAY "TAD PZ" = ONLY REF | 
azas2 7325. > .. STL CLA Idt RAL -= 3. POP-81.-8L°& -BE ONLY. 
|  Bidd #3111 /OVERLAY "TAD Ha" 
—BE1it- 7244 SLL STA RAL 
| F127) #7127 9 /OVERLAY "TAD P4gee" - ONLY 2 REFS” - 
Bfle?:. £338 : STL CLA RAR | 4 
a /NOTE: THERE ARE OWLY 2 REFERENCES TO ’P4ag@° ¢Loc 


7 124), WITH THE PATCHES ABOVE, THIS LOCATION ON 9 | 
¢ PAGE & IS FREED FOR OTHER USES. ‘© oe Pa 
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NOTES | PALS-VYr 8/5/72 PAGE 3 


INPUT FROM AND OUTPUT TO CHARACTER ORIENTED DEVICES | 


OTHER THAH THE TELETYPE. AND ADDING DEVICES 
TO THE THTERRUPT SERYICE ROUTIWE. 


THO LOCATIONS OWN PAGE & “OUTDEV’? CLOC. 6&3] ANT 


7 INDEV’ CLOC. 64]. CONTAIN THE ADDRESSES OF THE OUTPUT 
AWD IHFUT SUBROUTIWES, RESPECTIVELY. IF IT I5 DESIRED. : 


TO TO [0 TO OTHER DEVICES. THESE LOCATIONS SHOULD BE 


-CHAHGED TO THE ADDRESSES OF THE NEW Iet SUBROUTIWNECS:., 
CHAHGIHG THESE LOCATIONS UNDER FROGRAN CONTROL. PERHAPS ~ 
WITH A HODIFICATION TO THE "L" COMMAND ¢OR PERHAPS WITH: 
AW ADDITIONAL COMMAHD?. WOULD ALLOW FOR VERY VERSATILE 


Ivo TO’FROM A FOCAL FROGRAM. 
AN ESANPLE OF THE WAY THIS IS DOWHE IS SHOWN IN THE 


LISTING, THE HIGH-SFEED FEADER ROUWTIHE: THIS [5 A GOOD ©: 


EXAMPLE HOT ONLY OF HOW To DO ITs BUT ALSO OF THE ~ 
PROBLEMS THAT CAN OCCUR. THE PROBLEM WITH IT IS. THAT 
THE READER CAH EASILY GYVER-RUN THE 1 CHARACTER INPUT 
BUFFERS AT WHICH TIME THE INPUT STOPS AND AN ERROR IS 
GIVEN. THIS WOULD OBYIOUSLY BE LESS OF & PROBLEM WITH 
& HIGH-SPEED OUTPUT DEVICE, BUT. THE FOINT IS THAT YOU 


SHOULD GIVE SOME THOUGHT TO WHAT YOU ARE DOIWG. FIRST. 


IF HEW DEVICES ARE ADDED. «4 MODIFICATION SHOULD 


ALSO BE MADE TO THE ERROR HANDLER (STARTING AT *RECOVR?, © 
LOCATION 27489 TO STOP ANY IHFUT DEVICES IH MOTION AND. 
RESET (“THMDEW’ AND “OUTDEY* TO THE TELETYPE IG ROUTINES. 


“QUTDEY’ SHOULD BE RES a BEFORE THE ERROR MESSAGE IS 
QUTPUT SO THAT THE MESSAGE WILL BE TYPED ON THE TELE-. 


“TYPE. ADMITTEDLY, IT IS NOT ABSOLUTELY NECESSARY THAT ~ 
THIS RESETTING BE DONE, BUT IT WILL HELF ANYONE WHO IS 


USING YOUR MODIFIED VERSION OF FOCAL (PERHAPS YOU. AND | 


MAY SAVE YOU SOME FRIEWDS.— 


IF THE ADDED I-0 DEVICES REQUIRE SERVICE BY THE 


THTERRUPT ROUTTHE. A FEW LOCATIONS ARE FROVIDED AT 
THE END OF THE ROUTINE. BEGINNING WITH “EXIT’ ¢Loc. 


646%. THESE LOCATIOHS ARE CURRENTLY USED BY THE H.5, 


.. READER. BUT THEY CAH EITHER BE REMOVED ¢IF HOT USED) OR- 


¢° MOVED SOME PLACE ELSE. 


a 


AS WITH CHORECTER ORIENTED DEVICES AS. DESCRIBED 


ABOVE, IT IS SUGGESTED THAT & MODIFICATION BE MADE TO 


THE ERRQE HAHDLER TO RESET ANY ITHTERRUFT- veer I- ‘0. Pe 


. DEVICES AT THE TIME THAT AH ERROR OCCURS. 


NOTE: IF AN 8K VERSION OF FOCAL 1S USED) THE | 
"RMF" INSTRUCTION CURRENTLY AT LOCATION 2652 SHOULD «2» 
BE MOVED TO LOCATION 2654. IF AN SK VERSION IS NOT 2) 


USED. THIS INSTRUCTION TS HOT. WEEDED. 


¢FOCAL SEMINAR NOTES PALS-V?7 8/5/72 © PAGE 6: 


THESE PATCHES. WHICH ARE WORKING EXAMPLES, DO 
THE FOLLOWING: | | 


hs PROVIDE CHARACTER INPUT AND QUTPUT THROUGH 
"FIH" AWD "FOUT" FUNCTIONS. 


: es PROVIDE BCT IHPUT AND OUTPUT AS WOULD BE USED 
 - FOR THSTRUMEHT THTERFACE THROUGH "FBI" AND 
"FRO" FUNCTIOWS. | 


3% GIVE AW EXAMPLE OF ARRAY OR COMMON STORAGE © 
THROUGH AH "FA" FUNCTION. : 


4. WSE A MODIFICATION TO THE "L" COMMAND. INCLUDING | 
CHANGIHG IT TO THE "0" COMMAND. TO SHOW HOW A 
FOCAL LIWHE OF GROUP CAH BE EXECUTED FROM | 
WITHIM A FOCAL MODIFICATION. _ 


ee ie, a ee se 


a PROVIDE THE FOLLOWING CORRECTIONS TO FOCAL: 


a a 
a A. PATCH THE "L" ROUTIHE TO CONTIHUE IH THE © 
ie 4 CURREMHTLY EXECUTIMG FOCAL PROGRAM CDOW’T Go 
/ TO Féeaes. 7 : : 
f EB. PATCH THE FLOATING-POINT OUTPUT ROUTINE To: | 
a , ROUND CORRECTLY, FLOAT THE SIGN TO.THE IMMED- | 
oo IATE LEFT OF THE MOST SIGNIFICANT DIGIT eas a 
a AHD REMOVE THE AUTOMATIC OUTPUT OF "=", 


-/MISCELLAHEGUS PATCHES: 
e235 BOTTOM ~ “RESET BOTTOM OF P.D.L. 


88035. -5123-  oDATA-1 


“1004 #1004 /CHANGE "L" TO "O" IN COMMAND LIST: - 
81004 B31? og | 
“4173 #1173 | OVERLAY OLD "L" ROUTINE ADDRESS | 
—B1i73 Bll gear | | 
1pe1 cwizet /OVERLAY "4" ROUTINE ADDRESS 


Bizei Birr | START 


/PATCHES TO THE FUNCTION NAME & ADDRESS TABLES: 
@377 #377  ¢REMOVE SOME FUNCTIONS, CHANGE OTHERS” 


(90377. 1343 °° KA FAM = WAS ¢RDYS? 
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Ty 
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rm 
TI 
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md 
mt 


me 
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eres 7 ERRORS “WAS * ARAN’ 

ara ERRORS “WAS “ADC? 

ere ERRORS /WAS “ARTH’ — 

Jake AB I “UP BI" -— Was ’FEXP* 
weer ABO “"PFBO" ~- WAS *FLOG?. 
Las SIM "FTW" = WAS *FSIW’ 
oer AOUT “"FPOUT" - WAS ’FCOS’. — 


21lro *2ire “CHANGE NAMES OF FUNCTIONS 


asa. "g re 


Mis: =| "Bree" ] “BI 
“412300 "Br2+"O rBO 
1144 "Et2+ "i “IH 
2ore "G+ee Utoe' T “OUT 
¢ NOTE: "*" TS THE MULTIPLY OPERATOR IN PALS. IT. | 
“ DOES HOT USE ANY HIERARCHY OF PRECIDENCE, BUT JUST 
#” MULTIPLIES THE YALUE ON THE LEFT BY THE VALUE OH 
“ THE RIGHT, THUS Ate+Bre+0 = CAve+BoHe+0 TN NORMAL 
’ ALGEBRAIC REPRESENTATION. 
? 
; ALL OF THE "EXTENDED" FUNCTIONS AND SOME OF 
¢ THE OTHER FUNCTIONS HAVE BEEN REMOVED TO MAKE ROOM 
/° FOR THE PATCHES THAT ARE TO BE ADDED. NO PARTICULAR 
* REASONING WAS USED TO DETERMINE THE ORDER OF THE NEW 
“ FUNCTION REFERENCES EXCEPT THAT THE "FA" FUNCTION WAS: 
/ PUT AS CLOSE TO THE BEGINNING OF THE TABLE AS WAS 
POSSIBLE TO MINIMIZE THE TIME IN THE "SORTB" SUB~ 
w 


ROUTINE WHEN LOOKING IT UP. 


“FOCAL SEMINAR NOTES | FALE-YP 8-5 PAGE ? 
1142 #1142 OVERLAY OLD "FDIS" FUNCTION. 


THIS SUBROUTIWHE, CALLED BY "PUSHJ; CHECOM", 


4 
f (CHECKS TG SEE IF TERMIWATOR OF THE LAST EXPRESSION . 
f T.E.. THE COHTEHTS OF “CHAR’> I5 A ".". IF IT. 
“ 75 HOT. CHECOM EXITS TO THE WORD FOLLOWING THE | : 
f (CALL. IF IT IS. CHECOM EVALUATES THE HEXT EXPRESSION 
 AHD EXITS TO THE SECOHD WORD FOLLOWING THE CALL. 
cee | CHECOM HEETDS TO BE A RECURSIVE SUBROUTINE 
f BECAUSE THE CALL TO “’EVAL’ MAY END UP CALLING 
“ THIS SUBROUTIWHE AGAIN. | 
Blide i666 CHKCOM, TAD CHAR ' “TS CccHArRs = ", "9 
Blids 1336 — TAD MCOM _ 
A@lidd Fede S2A CLA 
@ili45 S541 POP J . “HO, EXIT HOW TO CALL+1 es 
Hild6 4546 PUSH. YES, EVALUATE NEXT ARGUMENT. 
MiidyY i16i1e EVAL-1 CSKIP THIS CHARS 
cd THE FOLLOWIHG CODE COULD BE REPLACED BY 
"CLA TACs POPI" IF IT IS DESIRED TO USE THE MIN- 
“ IMUM SPACE AHD THE "JMS I INTEGER" IS NOT USED. © 


~O1158 1413 FORA “GET RETURN ADDRESS 
@iiSi 3615 | TCA FLTKR2 ¢ & STORE IT HERE © 


é ‘IF 19 I$ DESIRED TO File THE FLAC AND RETURN 
“ WITH THE ITHTEGERIZED VALUE, REMOVE THE ree “en 
* FROM THE FOLLOWING LINE OF CODE: 

/ 

oe 


ee eg | JMS I THTEGER FIM FLAC & RETURH WITH VALUE 
Q@iiS2 3415 © MP oT FLTHR2 “EXIT TO CALL+2 | : woe 


4343 #1343 “OVERLAY OLD "FADC" FUNCTION & “OQUTL’ ROUTINE. -. 


HEW "Fa" FUHCTION. ACCESSES DATA STORED IH AN 
“ ARRAY. IT IS EQUIVALENT TO THE Way ARRAYS ARE 
f HAHDLED BY HIGH-LEVEL COMPILER LANGUAGES, I.E.: THE 
“ JHDEX IHTO THE ARRAY IS MULTIPLIED 6&Y THE HUMBER OF 
of PORTS FER ITEM AHD ADDED To THE BASE ADDRESS OF THE 
of AREAY TO GET THE ITEM ADDRESS. -THIS [5 AH ATAPTA- 
f° TION TO THE "FHEW" FUNCTION FIRST WRITTEH BY JOHH. 
“ ALDERMAH. 
f CALL: ... FACTO... GET ITH VALUE 
| Facts. Vo... FUT WoIN ITH LOCATION 


~ 


SF WHERE IT WILL BE TAKEH TO BE AH INTEGER IN THE” 
4 RAHGE @.LE.IT.LT. Cc’ CIM’) AWD Y IS ANY VALUE. 
ce STHCLUDIHG ANY EXPRESSION). : 


BlS43 4452 8A, JMS IT INTEGER FIX FLAC fi 
HBlg44 Fid © CLL RAL .. AULTIPLY BY 2 = Nee 
Hi345 ide | | ' TAD LORD & ADD = NHeet+N = Nee 
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TAD BASE “ATT BASE ADDRESS OF ARRAY 
PUSHA & SAVE ITEM ADDRESS 
TAD HORT “TEST INDES FOR PROPER RAWGE: . 
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/FOCAL DEBUG PATCHES #1 


“DEBUGGING PATCHES FOR RUNNING FOCAL WITH "IOF": — | 
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